home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / background_114030.txt < prev    next >
Text File  |  1990-08-14  |  6KB  |  295 lines
  1. -- background: 114030 from stack: in
  2. -- bmap block id: 114549
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Report Manager
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   installMenuBar 1130,1131,1132,1133,1134,1135,1136,-206
  9. end openBackground
  10.  
  11. on doMenu menuItem
  12.   lock screen
  13.   if menuItem contains "About" then
  14.     resetCards
  15.     restoreMenuBar
  16.     go to card short name of this background of background "About"
  17.     unlock screen with zoom close
  18.   else if menuItem is "Home" then
  19.     resetCards
  20.     restoreMenuBar
  21.     go home
  22.   else if menuItem contains "Quit" then
  23.     resetCards
  24.     restoreMenuBar false
  25.     go to card "Mac School¬Æ Shell"
  26.     unlock screen with zoom close
  27.   else if menuItem is "New‚Ķ" then
  28.     go to card "New" of this background
  29.   else if menuItem is "Open‚Ķ" then
  30.     go to card "Open Dialog" of this background
  31.   else if menuItem is "Close" then
  32.     visual zoom close
  33.     go to first card of this background
  34.   else if menuItem is "Transfer" then
  35.     if short name of this card is "Attendance Report" then
  36.       resetCards
  37.       restoreMenuBar false
  38.       go to background "CSL Attendance"
  39.     else if short name of this card is "Letter" OR short name of this card is "Report Card" then
  40.       resetCards
  41.       restoreMenuBar false
  42.       go to background "Report Cards"
  43.     end if
  44.     unlock screen with visual zoom open
  45.   end if
  46.   unlock screen
  47. end doMenu
  48.  
  49. on groupOne
  50.   repeat with index = 1 to 6
  51.     if index is not id of target then
  52.       set hilite of background button id index to false
  53.     end if
  54.   end repeat
  55.   if short name of target is "Hand" AND hilite of target then
  56.     set hilite of target to true
  57.     go next
  58.   end if
  59.   set hilite of target to true
  60. end groupOne
  61.  
  62. on resetCards
  63.   repeat with index = 2 to 6
  64.     set hilite of background button id index to false
  65.   end repeat
  66.   set hilite of background button id 1 to true
  67. end resetCards
  68.  
  69.  
  70.  
  71. -- part 1 (button)
  72. -- low flags: 00
  73. -- high flags: 4000
  74. -- rect: left=450 top=61 right=82 bottom=475
  75. -- title width / last selected line: 0
  76. -- icon id / first selected line: 0 / 0
  77. -- text alignment: 1
  78. -- font id: 0
  79. -- text size: 12
  80. -- style flags: 0
  81. -- line height: 16
  82. -- part name: Hand
  83. ----- HyperTalk script -----
  84. on mouseUp
  85.   groupOne
  86. end mouseUp
  87.  
  88.  
  89.  
  90. -- part 2 (button)
  91. -- low flags: 00
  92. -- high flags: 0000
  93. -- rect: left=476 top=61 right=82 bottom=501
  94. -- title width / last selected line: 0
  95. -- icon id / first selected line: 0 / 0
  96. -- text alignment: 1
  97. -- font id: 0
  98. -- text size: 12
  99. -- style flags: 0
  100. -- line height: 16
  101. -- part name: Arrow
  102. ----- HyperTalk script -----
  103. on mouseUp
  104.   groupOne
  105. end mouseUp
  106.  
  107.  
  108.  
  109. -- part 3 (button)
  110. -- low flags: 00
  111. -- high flags: 0000
  112. -- rect: left=450 top=83 right=104 bottom=475
  113. -- title width / last selected line: 0
  114. -- icon id / first selected line: 0 / 0
  115. -- text alignment: 1
  116. -- font id: 0
  117. -- text size: 12
  118. -- style flags: 0
  119. -- line height: 16
  120. -- part name: Text
  121. ----- HyperTalk script -----
  122. on mouseUp
  123.   groupOne
  124. end mouseUp
  125.  
  126.  
  127.  
  128. -- part 4 (button)
  129. -- low flags: 00
  130. -- high flags: 0000
  131. -- rect: left=476 top=83 right=104 bottom=501
  132. -- title width / last selected line: 0
  133. -- icon id / first selected line: 0 / 0
  134. -- text alignment: 1
  135. -- font id: 0
  136. -- text size: 12
  137. -- style flags: 0
  138. -- line height: 16
  139. -- part name: Line
  140. ----- HyperTalk script -----
  141. on mouseUp
  142.   groupOne
  143. end mouseUp
  144.  
  145.  
  146.  
  147. -- part 5 (button)
  148. -- low flags: 00
  149. -- high flags: 0000
  150. -- rect: left=450 top=105 right=126 bottom=475
  151. -- title width / last selected line: 0
  152. -- icon id / first selected line: 0 / 0
  153. -- text alignment: 1
  154. -- font id: 0
  155. -- text size: 12
  156. -- style flags: 0
  157. -- line height: 16
  158. -- part name: Rectangle
  159. ----- HyperTalk script -----
  160. on mouseUp
  161.   groupOne
  162. end mouseUp
  163.  
  164.  
  165.  
  166. -- part 6 (button)
  167. -- low flags: 00
  168. -- high flags: 0000
  169. -- rect: left=476 top=105 right=126 bottom=501
  170. -- title width / last selected line: 0
  171. -- icon id / first selected line: 0 / 0
  172. -- text alignment: 1
  173. -- font id: 0
  174. -- text size: 12
  175. -- style flags: 0
  176. -- line height: 16
  177. -- part name: Round Rect
  178. ----- HyperTalk script -----
  179. on mouseUp
  180.   groupOne
  181. end mouseUp
  182.  
  183.  
  184.  
  185. -- part 7 (button)
  186. -- low flags: 00
  187. -- high flags: 0000
  188. -- rect: left=449 top=126 right=156 bottom=502
  189. -- title width / last selected line: 0
  190. -- icon id / first selected line: 0 / 0
  191. -- text alignment: 1
  192. -- font id: 0
  193. -- text size: 12
  194. -- style flags: 0
  195. -- line height: 16
  196. -- part name: 
  197.  
  198.  
  199. -- part 8 (button)
  200. -- low flags: 00
  201. -- high flags: 0000
  202. -- rect: left=449 top=160 right=190 bottom=502
  203. -- title width / last selected line: 0
  204. -- icon id / first selected line: 0 / 0
  205. -- text alignment: 1
  206. -- font id: 0
  207. -- text size: 12
  208. -- style flags: 0
  209. -- line height: 16
  210. -- part name: 
  211.  
  212.  
  213. -- part 9 (button)
  214. -- low flags: 00
  215. -- high flags: 0000
  216. -- rect: left=449 top=192 right=222 bottom=502
  217. -- title width / last selected line: 0
  218. -- icon id / first selected line: 0 / 0
  219. -- text alignment: 1
  220. -- font id: 0
  221. -- text size: 12
  222. -- style flags: 0
  223. -- line height: 16
  224. -- part name: 
  225.  
  226.  
  227. -- part 10 (button)
  228. -- low flags: 00
  229. -- high flags: 0000
  230. -- rect: left=449 top=224 right=254 bottom=502
  231. -- title width / last selected line: 0
  232. -- icon id / first selected line: 0 / 0
  233. -- text alignment: 1
  234. -- font id: 0
  235. -- text size: 12
  236. -- style flags: 0
  237. -- line height: 16
  238. -- part name: 
  239.  
  240.  
  241. -- part 11 (field)
  242. -- low flags: 00
  243. -- high flags: 0000
  244. -- rect: left=98 top=43 right=58 bottom=277
  245. -- title width / last selected line: 0
  246. -- icon id / first selected line: 0 / 0
  247. -- text alignment: 0
  248. -- font id: 3
  249. -- text size: 12
  250. -- style flags: 0
  251. -- line height: 16
  252. -- part name: 
  253.  
  254.  
  255. -- part 12 (field)
  256. -- low flags: 00
  257. -- high flags: 0000
  258. -- rect: left=450 top=257 right=335 bottom=464
  259. -- title width / last selected line: 0
  260. -- icon id / first selected line: 0 / 0
  261. -- text alignment: 0
  262. -- font id: 3
  263. -- text size: 12
  264. -- style flags: 0
  265. -- line height: 16
  266. -- part name: 
  267.  
  268.  
  269. -- part 13 (button)
  270. -- low flags: 00
  271. -- high flags: 0000
  272. -- rect: left=11 top=23 right=38 bottom=26
  273. -- title width / last selected line: 0
  274. -- icon id / first selected line: 5068 / 5068
  275. -- text alignment: 1
  276. -- font id: 0
  277. -- text size: 12
  278. -- style flags: 0
  279. -- line height: 16
  280. -- part name: Close
  281. ----- HyperTalk script -----
  282. on mouseDown
  283.   set icon of me to "Close Box Hi"
  284. end mouseDown
  285.  
  286. on mouseLeave
  287.   set icon of me to "Close Box"
  288. end mouseLeave
  289.  
  290. on mouseUp
  291.   set icon of me to "Close Box"
  292.   visual effect zoom close
  293.   go to second card of this background
  294. end mouseUp
  295.